home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / misc / CheckPrinter.lha / checkprinter / english / check_cli.s < prev    next >
Encoding:
Text File  |  1991-04-04  |  1.5 KB  |  84 lines
  1. ;       CheckPrinter v0.38
  2. ;       (cli-output)
  3. ;       DevPac-Version
  4. ;       Istvan 'Isy' Bognar
  5.  
  6.  
  7. CheckPrinter:
  8.  
  9. sysbase        equ  4          
  10. OpenLib        equ -552        
  11. CloseLib       equ -414        
  12. Output         equ -60         
  13. Write          equ -48         
  14.  
  15.         lea.l  $bfd000,a0
  16.         move.l (a0),d0
  17.         and.b  #%111,d0
  18.         cmp.w  #$ff00,d0
  19.         beq.s  NoPaper
  20.         cmp.w  #$fd00,d0
  21.         beq.s  OffLine
  22.         cmp.w  #$fc00,d0
  23.         beq.s  OnLine
  24.         rts
  25.  
  26. OffLine:
  27.         move.l #OffLine_text,d2
  28.         move.l #22,d3
  29.         jsr    output
  30.         rts
  31.  
  32. OnLine:
  33.         move.l #OnLine_text,d2
  34.         move.l #20,d3
  35.         jsr    output
  36.         rts
  37.  
  38. NoPaper:
  39.         move.l #NoPaper_text,d2
  40.         move.l #37,d3
  41.         jsr    output
  42.         rts
  43.  
  44.  
  45. output:
  46.         move.l  #dosname,a1
  47.         moveq   #0,d0
  48.         move.l  sysbase,a6
  49.         jsr     OpenLib(a6)
  50.         tst.l   d0
  51.         beq     end
  52.         move.l  d0,dosbase
  53.         move.l  dosbase,a6
  54.         jsr     Output(a6)
  55.         move.l  d0,d4
  56.         move.l  d4,d1
  57.         move.l  dosbase,a6
  58.         jsr     Write(a6)
  59.         move.l  dosbase,a1
  60.         move.l  sysbase,a6
  61.         jsr     CloseLib(a6)    
  62. end:    rts
  63.  
  64.  
  65.  
  66. OffLine_text:
  67.         dc.b    'printer is offline !',7,10
  68.         cnop    0,2
  69.         
  70. OnLine_text:
  71.         dc.b    'printer is online !',10
  72.         cnop    0,2
  73.         
  74. NoPaper_text:
  75.         dc.b    'no paper or printer is turned off !',7,10
  76.         cnop    0,2
  77.         
  78.  
  79. dosbase dc.l    0
  80.  
  81. dosname dc.b    'dos.library',0
  82.         cnop    0,2
  83.  
  84.